-- background: 2152 from stack: in
-- bmap block id: 2542
-- flags: 0000
-- background id: 0
-- name: Phone


-- part 2 (field)
-- low flags: 01
-- high flags: 4000
-- rect: left=385 top=157 right=175 bottom=436
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: ExtŽrieur
----- HyperTalk script -----
on closeField
  put the short name of the target into nomChamp
  repeat with x = the number of chars in field nomChamp down to 1
    if char x of field nomChamp is not in "0123456789,"
    then delete char x of field nomChamp
  end repeat
end closefield



-- part 40 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=385 top=174 right=192 bottom=436
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Province-Paris
----- HyperTalk script -----
on closeField
  put the short name of the target into nomChamp
  repeat with x = the number of chars in field nomChamp down to 1
    if char x of field nomChamp is not in "0123456789,"
    then delete char x of field nomChamp
  end repeat
end closefield



-- part 3 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=385 top=191 right=209 bottom=436
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Paris-Province
----- HyperTalk script -----
on closeField
  put the short name of the target into nomChamp
  repeat with x = the number of chars in field nomChamp down to 1
    if char x of field nomChamp is not in "0123456789,"
    then delete char x of field nomChamp
  end repeat
end closefield



-- part 27 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=385 top=208 right=226 bottom=436
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: International
----- HyperTalk script -----
on closeField
  put the short name of the target into nomChamp
  repeat with x = the number of chars in field nomChamp down to 1
    if char x of field nomChamp is not in "0123456789,"
    then delete char x of field nomChamp
  end repeat
end closefield



-- part 20 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=419 top=39 right=57 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Heure


-- part 44 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=79 top=205 right=223 bottom=215
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Sans modem
----- HyperTalk script -----
on mouseUp
  set hilite of bkgnd button "sans modem" to true
  set hilite of bkgnd button "modem (tonalité)" to false
  set hilite of bkgnd button "modem (impulsions)" to false
end mouseUp



-- part 45 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=79 top=222 right=240 bottom=215
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Modem (tonalitŽ)
----- HyperTalk script -----
on mouseUp
  set hilite of bkgnd button "sans modem" to false
  set hilite of bkgnd button "modem (tonalité)" to true
  set hilite of bkgnd button "modem (impulsions)" to false
end mouseUp



-- part 46 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=79 top=239 right=257 bottom=215
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Modem (impulsions)
----- HyperTalk script -----
on mouseUp
  set hilite of bkgnd button "sans modem" to false
  set hilite of bkgnd button "modem (tonalité)" to false
  set hilite of bkgnd button "modem (impulsions)" to true
end mouseUp